<?php
/**
* ###############################################
* http://www.netjs.com/speller/ - Credit where due :)
* ###############################################
*/
header('Content-type: text/html; charset=utf-8');

$spellercss = 'spellerStyle.css';
$word_win_src = 'wordWindow.js';
$textinputs = $_POST['textinputs']; # array
$aspell_prog = 'aspell';
$lang = 'en_US';
$aspell_opts = "-a --lang=$lang";
//$aspell_opts = "-a --lang=$lang --encoding=utf-8";
$tempfiledir = "./../../cache";
$input_separator = "A";

# set the JavaScript variable to the submitted text.
# textinputs is an array, each element corresponding to the (url-encoded)
# value of the text control submitted for spell-checking
function print_textinputs_var() {
	global $textinputs;
	foreach( $textinputs as $key=>$val ) {
		# $val = str_replace( "'", "%27", $val );
		echo "textinputs[$key] = decodeURIComponent(\"" . $val . "\");\n";
	}
}

# make declarations for the text input index
function print_textindex_decl( $text_input_idx ) {
	echo "words[$text_input_idx] = [];\n";
	echo "suggs[$text_input_idx] = [];\n";
}

# set an element of the JavaScript 'words' array to a misspelled word
function print_words_elem( $word, $index, $text_input_idx ) {
	echo "words[$text_input_idx][$index] = '" . escape_quote( $word ) . "';\n";
}


# set an element of the JavaScript 'suggs' array to a list of suggestions
function print_suggs_elem( $suggs, $index, $text_input_idx ) {
	echo "suggs[$text_input_idx][$index] = [";
	foreach( $suggs as $key=>$val ) {
		if( $val ) {
			echo "'" . escape_quote( $val ) . "'";
			if ( $key+1 < count( $suggs )) {
				echo ", ";
			}
		}
	}
	echo "];\n";
}

# escape single quote
function escape_quote( $str ) {
	return preg_replace ( "/'/", "\\'", $str );
}


# handle a server-side error.
function error_handler( $err ) {
	echo "error = '" . escape_quote( $err ) . "';\n";
}

## get the list of misspelled words. Put the results in the javascript words array
## for each misspelled word, get suggestions and put in the javascript suggs array
function print_checker_results() {

	global $aspell_prog;
	global $aspell_opts;
	global $tempfiledir;
	global $textinputs;
	global $input_separator;
	$aspell_err = "";

	if (extension_loaded('pspell'))
	{
		foreach ($_POST["textinputs"] as $key=>$val)
		{
			print_textindex_decl($key);
			$_decodestring = urldecode($val);
			// Make word list based word boundries
			$wordlist = preg_split('/\s/',$_decodestring);
			// Filter words
			$words = array();
			for($i = 0; $i < count($wordlist); $i++)
			{
				$word = trim($wordlist[$i]);

				if(!preg_match('/[A-Za-z]/', $word)) {
					continue;
				}

				$word = preg_replace('/[^\w\']*(.+)/', '\1', $word);
				$word = preg_replace('/([^\W]*)[^\w\']*$/', '\1', $word);
				$word = trim($word);

				if(!in_array($word, $words, true)) {
					$words[] = $word;
				}
			}

			$misspelled = $return = array();
			pspell_config_create("en");
			$int = pspell_new('en');
			foreach ($words as $value) {
				if (!pspell_check($int, $value)) {
					$misspelled[] = $value;
				}
			}

			foreach ($misspelled as $value) {
				$return[$value] = pspell_suggest($int, $value);
			}

			$_index = 0;
			foreach ($misspelled as $wordkey=>$wordval)
			{
				print_words_elem($wordval, $_index, $key);
				if(count($return[$wordval])) {
					$suggs = $return[$wordval];
				} else {
					$suggs = array();
				}
				print_suggs_elem( $suggs, $_index, $key);
				$_index++;
			}
		}
	} else {
		# create temp file
		$tempfile = tempnam( $tempfiledir, 'aspell_data_' );
		# open temp file, add the submitted text.
		if( $fh = fopen( $tempfile, 'w' )) {
			for( $i = 0; $i < count( $textinputs ); $i++ ) {
				$text = urldecode( $textinputs[$i] );
				$lines = explode( "\n", $text );
				fwrite ( $fh, "%\n" ); # exit terse mode
				fwrite ( $fh, "^$input_separator\n" );
				fwrite ( $fh, "!\n" ); # enter terse mode
				foreach( $lines as $key=>$value ) {
					# use carat on each line to escape possible aspell commands
					fwrite( $fh, "^$value\n" );
				}
			}
			fclose( $fh );

			# exec aspell command - redirect STDERR to STDOUT
			$cmd = "$aspell_prog $aspell_opts < $tempfile 2>&1";
			if( $aspellret = shell_exec( $cmd )) {
				$linesout = explode( "\n", $aspellret );
				$index = 0;
				$text_input_index = -1;
				# parse each line of aspell return
				foreach( $linesout as $key=>$val ) {
					$chardesc = substr( $val, 0, 1 );
					# if '&', then not in dictionary but has suggestions
					# if '#', then not in dictionary and no suggestions
					# if '*', then it is a delimiter between text inputs
					# if '@' then version info
					if( $chardesc == '&' || $chardesc == '#' ) {
						$line = explode( " ", $val, 5 );
						print_words_elem( $line[1], $index, $text_input_index );
						if( isset( $line[4] )) {
							$suggs = explode( ", ", $line[4] );
						} else {
							$suggs = array();
						}
						print_suggs_elem( $suggs, $index, $text_input_index );
						$index++;
					} elseif( $chardesc == '*' ) {
						$text_input_index++;
						print_textindex_decl( $text_input_index );
						$index = 0;
					} elseif( $chardesc != '@' && $chardesc != "" ) {
						# assume this is error output
						$aspell_err .= $val;
					}
				}

				if( $aspell_err ) {
					$aspell_err = "Error executing `$cmd`\\n$aspell_err";
					error_handler( $aspell_err );
				}
			} else {
				error_handler( "System error: Aspell program execution failed (`$cmd`)" );
			}
		} else {
			error_handler( "System error: Could not open file '$tempfile' for writing" );
		}

		# close temp file, delete file
		unlink( $tempfile );
	}
}


?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="<?php echo $spellercss ?>" />
<script language="javascript" src="<?php echo $word_win_src ?>"></script>
<script language="javascript">
var suggs = new Array();
var words = new Array();
var textinputs = new Array();
var error;
<?php

print_textinputs_var();

print_checker_results();

?>

var wordWindowObj = new wordWindow();
wordWindowObj.originalSpellings = words;
wordWindowObj.suggestions = suggs;
wordWindowObj.textInputs = textinputs;

function init_spell() {
	// check if any error occured during server-side processing
	if( error ) {
		alert( error );
	} else {
		// call the init_spell() function in the parent frameset
		if (parent.frames.length) {
			parent.init_spell( wordWindowObj );
		} else {
			alert('This page was loaded outside of a frameset. It might not display properly');
		}
	}
}



</script>

</head>
<body onLoad="init_spell();">

<script type="text/javascript">
wordWindowObj.writeBody();
</script>

</body>
</html>

